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EXESJBCRSP = Store response from job controller 
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COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


G 
tree IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
I 


ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
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oO 
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W 
HEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
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FACILITY: 
System services. 


ABSTRACT: 
This module implements the Send to Job Controller ($SNDJBC) and the 
Get Queue Information ($GETQUI) system services. 


AUTHOR: M. Jack, CREATION DATE: 29-Aug-1982 
MODIFIED BY: 


V03-011 JAKO218 J A Krycka 10-Jul-1984 
Update tables to support new SSNDJBC and $GETQUI item codes. 


V03-010 JAK0203 J A Krycka 17-Apr-1984 
Update tables to support new SSNDJBC item codes. 


v03-009 TMKO001 Todd M. Katz 04-Apr-1984 
Re-write the action routine TRANSLATE. OBJECT to: 


1. Replace the recursive STRNLOGs with STRNLNMs. 


2. Eliminate the code that removes tabs, blanks, and null 
characters from names before attempting to translate them. 
Logical names should be handled in a systematic fashion 
throughout the oysten. and nenody else fiddles with them in 
such a fashion. However, after the recursive translations 
complete, at this time format the final translation according 


OOOO OCOCOSSSSSSSSSSSSSSSSSSOOOOCOOOSOOOOOOOOOOOOOOOO 
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Ooo 
NOW EAN OOO NAME WN CO ODNOAU EWN (OO ONAU EWN O OONOU ES WN) OOONOUS Wh 


SOoOoCoooooooooooooQooOoOoooOoOOOSOOOSOOOOOOCOCOO OOOO OCOOOOOOOOOOOOO 
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to the syntax onpeetes for queue names. This involves 
soeet es Bagg null characters, and spaces from the final 


on, and then upcasing it. This upces ing is done by 
means of the DEC multi-national character upcasing table. 


3. Eliminate the code that upcases names before their 
translation because the STRNLNMs will be done 
case-insensitive. 


4. Micro-optimize the action routine. 


v03-008 hy Andrew C. Goldstein, 13-Sep-1983 


COOoooooocooo: 


BONAUE WN O OOONAU EW 0 OO NOUS WN HOOD NOU SWI 0O0 


Sete Ge Ge Se Ge Ge Se Ge Ge Se Ge Se Se Se Se Se Se Se Se Se Se Ge Se Ge Se Se Se Ge Ge Ge Se Ge Se Se Ge Be Se Se Se Se 


300000000000 09 09 09 09 09 09 09 09 09 SI NINN NIN IO AAA AAAAAQOUU 


SOSOOCOOCOOCOCOSoOOOOOOCSCOOoOoOOo 
SOOoOCooooooooooooooooo 


ange delete protection check to use alternate access 
rather than access-granted. 


MLJC118 Martin L. Jack, 22-Aug-1983 
Guard agetnet overlong resultant filename. Update tables and 
Limits for new SGETQUI and SSNDJBC items. 


MLJO115 Martin L. Jack, 30-Jul-1983 
Changes for job controller baselevel. 


MLJ0114 Martin L. Jack, 23-Jun-1983 
Add support for $GETQUI and for new S$SNDJBC items. 


MLJO112 Martin L. Jack, 28-Apr-1983 
Update tables and Limits for new items corresponding to job 
controller baselevel. 


CWH1002 CW Hobbs 24-Feb-1983 
Send extended pid and owner fields to the job controller. 
MLJ0106 Martin L. Jack, 1-Mar-1983 


Update tables and Limits for new items corresponding to job 
controller baselevel. 


MLJ0103 Martin L. Jack, 7-Jan-1983 ; 
Update tables and Limits for new items corresponding to job 
controller baselevel. 


$s A 
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9 -SBTTL DATA DEFINITIONS 
3; EXTERNAL SYMBOLS: 
5 ° 
§ SACBDEF ; Define AST control block offsets 
0 SACMDEF ; Define accounting manager offsets 
8 3 SARMDEF ; Define access rights mask 
0 SATRDEF ; Define ACP attribute codes 
00 10 $F ABDEF 3: Define RMS file attributes block offsets 
88 11 SFATDEF : Define RMS file attribute area offsets 
\§ $F IBDEF 3; Define file information block offsets 
00 1 SIODEF 3; Define I/0 function codes 
00 14 SLNMDEF : Define Logical name system service symbols 
$88 15 SMSGDEF ; Define mailbox message types 
00 1 SNAMDEF ; Define RMS name block offsets 
000 1 SPCBDEF ; Define process control block offsets 
000 18 SPHODEF ; Define process header offsets 
000 19 SPSLDEF ; Define processor status longword offsets 
000 UIDEF 3; Define SGETQUI function and item codes 
000 DEF : Define S$SNDJBC function and item codes 
4 EF ; Define system status codes 
000 : 
00 3 


SDEFINI ACB 


0000001C Position to end 


0 $Qul 

1 $SJC 

¢ $SSD 

4 

5 ; LOCAL SYMBOLS 

? ; Extension to AST control block. These definitions are also known to JOBCTL. 
0 

1 - =ACBSL_KAST+4 
¢ uL_IAGCNT 

4 

8 

9 
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00 
00 
00 
00 
00 
00 ; 
1¢ SDEF ACB_L_ OE 7 ; Image counter 
0 SDEF _L_EFN _' oe ; Event flag number 
4 SDEF _10SB x ; IOSB address 
8 SDEF ACB_L_STATUS BLKL 1 ; Status for 10SB 
C SDEF ACB_W_ITEMCOUNT .BLKW 1 ; Count of data items 
E SDEF AC MS -BLKB 0 ; Base of item descriptors 
3 SDEFEND ACB 
4 40 ; 
‘3 ; Argument List offsets (based on AP). 
4 . 
£008 04 44 EFN= 4 ; Event flag number 
8 8 45 FUNC= 8 ; Function code 
f $ NULARG= 12 3; Reserved orquaent 
00 47 ITMLST= 16 ; Address of item descriptor List 
00014 $8 10SB= 0 ; Address of I/0 status block 
3 18 49 ASTADR= 4 ; Address of AST routine 
0 1c 29 ASTPRM= 8 ; AST parameter 
4 
5 
6 


MSG_CODE= 0 ; Message function code 


00000000 


SYSSND JBC 
voe=000 


0000005A 
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OUT 
SPECIAC_TABLE= 


-8 
FLAG= 0 


: Miscellaneous definitions. 


FIXED_AREA= 


ss os as 2 sn a 
SN NNO AAP OAOAAOOUIUTIN 


MEW OOONAUELS WOOO 
ore 


ACMSQ_SYSTIME+8 + 22 


"SrSEp=198e 09:37:37 


; Highest 
Highest 
Pointer 
Pointer 
Pointer 


Pointer 
Pointer 


SJC$_DELETE_ 


Size of 
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unction code minus one 
tem code minus one 
to boolean item table 
to output item table 
to special handling table 


to file identification item 
to wire Llaneous status flags 
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TRNLNM_TABLE : 
.ASCID /LNMSFILE_DEV/ 


49 46 24 4D 4E 4C 000000 
56 4 


an PM MM MZ MZ wn 


AT 
$_ LOG QUEUE 
NSLATE_ OBJECT 


NSLATE_OBJECT 


> The following values are needed as arguements to the STRNLNMs performed by 
3; the action routine TRANSLATE_OBJECT. 


LNMSM_CASE_BLIND 
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; Optional attributes for STRNLNMs 
; Translations are done case-insensitive 


; Tables in which to do the translations 


J 11 
Fe BC _— TO JOB cor oe kab 1 mith 9 09: 2$:38 AX/VMS Macro V04-00 Page 7 SYS 


end message to job control 5-SEP- SYS.SRCISYSSNDJBC.MAR; 1 (5) v04 
-SBTTL EXESSNDJBC = Send message to job controller 


EXESSNDJBC - SEND MESSAGE TO JOB CONTROLLER 
EXESGETQUI = GET QUEUE INFORMATION 


FUNCTIONAL DESCRIPTION: 


This routine provides the send to job controller and get queue 
information system services. The action is to build a message from the 


SNOUT 


OOONOUSE WOW 
+ 
a 


. : user's input data and send it to the job contretier mailbox. At request 
0; gong les ton. the job controller queues a special kernel AST to routine 
13 EXESJBCRSP to return status to this process. 
0 : 3; INPUTS: 
0 4; EFNCAP) = Number of the event flag to set at request completion 
8 23 FUNC (AP) = Function code 
0 $ 3 NULARG (AP) = Reserved argument, must be zero 
00 4 3 ITMLST CAP) = Address of a List of item descriptors 
00 8 ; IOSB(AP) = Address of a quadword to receive completion status 
0 89 ; ASTADR (AP) = Address of an AST routine to be called at request 
OD 90 ; completion 
oD 4 3 ASTPRM(AP) = Longword AST parameter 
00D 38 ; OUTPUTS: 
st4 32 : RO = Status of the operation 
OD 38 ; STATUS CODES RETURNED: 
3p 3 3 SS$_NORMAL Successful operation 
00D 99 ; SS$_ACCVIO Unable to write 10SB8, read ITMLST, read or write item 
00D 00 ; uffer, write return Length buffer 
OD Bs 3 S$S$_BADPARAM Invalid FUNC, nonzero NULARG, invalid item code, 
OD ¢ 3 nvalid zero or nonzero field in item descriptor 
0D 03 ; SS$_DEVOFFLINE No job controller 
00D 04 ; SS$_EXASTLM Exceeded ASTLM quota 
OD 05 ; SS$_ILLEFC gL ega' event flag number 
0D 86 3 SS$_INSFMEM Insufficient system aenery to complete request 
OD 07 ; SS$_MBFULL Job controller mailbox full 
OD 08 ; S$S$_MBTOOSML Message too large for job controller mailbox 
0D 09 ; SS$_UNASEFC Unassociated event flag cluster 
a een 
D 1 GETQUI_DATA: 
0000 8 D 1 -LONG MSG$_GETQUI ; Message function code 
0000 D6 14 ~LONG QUIS_RESERVED_FUNC 2-1 ; Highest function code minus one 
0 D DA 15 é QUIS"RESERVED-OUTPOT_6-1; Highest item code minus one 
0 ¢ * 00D 1g -LONG GETQ0I_BOOL ITEM ; Pointer to boolean item table 
* QOE 1 -LONG GETQUI“OUTPOT_ITEM ; Pointer to output item table 
0 : ss 18 -LONG GETQUI-SPECIAC_TABLE ; Pointer to special handling table 
EA 9 SNDJBC_DATA: 
8 OF EA -LONG MSG$_SNDJBC 3; Message function code 
1F E § -LONG SJCS_RESERVED_FUNC 2-1 ; Highest function code minus one 
AA F -LONG SJCS"RESERVED-OUTPOT_2-1; Highest item code minus one 
000° OOF 4 -LONG SNDJBC_BOOL_ITEM ; Pointer to boolean item table 


SYSSNDJBC 
v04- 


50 


50 
00000000'° EF 40 


50.02 
0000008E 
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50 
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80000080" 


omon 


—ROl 
ee ee ee ec ee el el ee el ae el a a ee a el el a ae el el el 
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NRE RRR REESE FWWWWWWUWIPonononnononnng 2 2 2 QOOOO OO OOOOOO™ 


NAA A A AAA AAO PRR ER RRR SE 


PWN OOD NAME WIN  O ONAN E WIN 9 OD NAME WIN O OONAUE WN OOONOM 


DD AAA AAA EFT 00000000 09 0009 SID O ES PPNININININIM OOOO PALL LL OOOPY SS rorarononorn a> 


AIWAWIAAAWAAAWNAAAAAANNWAAAAWAA 


et ae a a es ss 


SOOCOCOCOCOCOOOCOOOOoO 


CoN NYS NN 


—OOOnNOum 


D 
MOVAB SNDJBC_DATA,R11 


: Point to lowest usable stack address. 


20$: CLRQ mt ane 
EXTZV #PSL$Y =f URROR ,APSLSS_ cuRMOD RO,RO ; 


ADDL3 re ED-A 
CTLSAL- STACKLIMCRO], - 


3; Check for and clear 1/0 status block. 


MOVL SB(AP) ,RO 
BEQL 

IFNOWRT #8, (RO),ACCVIO 
CLRQ— (RO) 


: Validate function code. 


30$: SUBL3 = #1, FUNC (AP) ,R2 


CMPL R2,MAX_FUNC(R11) 
BGTRU BADPARAM 


————_-——_- -- —, 
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VO4 


; Pointer to output item table 
3; Pointer to special handling table 


; Set access violation status 


; Set bad parameter status 


; Set insufficient memory status 


er * 16-SEP-1984 34:54 
EXESSNDJBC = Send message to ven control g78E EP- =1$84 84:35:33 
-LONG $NODJBC_OUTPUT_ITEM 
-LONG SNDJBC"SPECIAC_TABLE 
-ENABL LSB 
ACCVIO: 
MOVL #SS$_ACCVIO,RO : 
ERB 10$ 
BADPARAM: 
MOV #5S$_BADPARAM, RO 
BRB 10$ 
INSFMEM: 
MOVZWL #SS$_INSFMEM,RO 
108: BRW ERROR 
EXESGETQUI: 
WORD “McR2 R3,R4,R5,R6,R7,R8, o® RIOR 
MOVAB ge Tul DATA.RII ; 
BRB 20$ $ 
EXESSNDJBC:: 
WOR “M<R2,R3,R4,R5,R6,R7,RB, ig® RIOR 


queve information 


: Po inf ” $cETQUI data table 


Join common code 


¢ fe, job controller 
Mad by a ” $sndUBC data table 


Allocate fixed work area 


Get current mode 

> Allow Ow slop for fixed message area plus 
: 52 bytes for SCMKRNL frame and 
parameters 


Get I0SB address 
Branch if none 


; Check write access to I0SB 
10S8 


Clear 


Get function code and subtract out 
smallest yalue to get zero origin 
Check age tase largest value 
Branch if invalid value 
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151 ; 
} } § ; Validate unused argument (must be zero). 
151 ey 
Oc AC 3 151 § TSTL NULARG(AP) ; Unused argument zero? 
Bi ! é 7 BNEQ BADPARAM ; Branch if not zero 
1 : 
1 6 ay 3 ; Process the item List to build the job controller message. During this Loop: 
1 96 i : RS = buffer size 
1 9 : RS = item code 
1 94 : R? = buffer address 
1 95 ; R8 = return length address 
156 38 : : R9 = pointer to item List 
138 9 : R10 = pointer to lowest available stack address 
138 38 : R11 = pointer to service-specific data area 
156 400 ° 
59 10 AC 00 156 401 MOVL ITMLST(AP) ,R9 ; Get item descriptor List address 
OE 1 15SA 4 § BEQL ; Branch if no item Lis 
15 4 IFNORD #4,(R9),90$ ; Check read access to first longword 
55 89 3¢ 162 404 ITEM: MOVZWL (R9)+,R5 : Get uuffer size value 
56 = 89 § 16 405 MOVZWL (R9)+.R6 ; Get item code value 
eS N168 $36 BNEQ 50$ ; Branch if nonzero, List not ended 
0080 31 16A 407 408:  BRW F INISH_MESSAGE : Branch if zero, List ended 
SSR .E 199 rt 50$: SUBL3 #1,R6,R2 3 Subtract A smallest. value to get 
3 zero ori 
08 AB 2g D1 0171 #8410 CMPL Re MAX_ITEM(R11) ; Check ageinst. ta tergest value 
59 1A 123 411 BGTRU 6 : Branch if invalid value 
17 216 IFNORD #12,(R9),90$ ; Check read access to second gre third 
017d = 41 ; longwords of this item and 
17D 8414 ; longword of next item 
57 89 7D 170 $1? mMOVQ (R9)+,R7 3 Set buffer address and return Length 
3; address 
180 417 ; 
! 3 213 ; Boolean item. Store the item code. 
180 420 ° 
17 OC 52 €1 01 ? 421 BBC R B000, I TERCATT) 608 :; Branch if not boolean item 
50 E C3 (1 4 ¢ SUBL3 oSP,R ; Get lowest address that will be used 
D1 189 4&4 CMPL R16 ; Compare against that available 
4 1F QO18C 424 BLSSU-110$ ; Branch if apace exceeded 
7 26 80 1 ‘ 425 MOVW + St 3; Store item sede 
1 : ° 4 ? § Mek R6,#SJC$_DELETE_FILE 3; Check for file deletion 
FB AD 61 a8 196 4 3 B1SB #1QDELETE_FLAG,FLAGS(FP); Note file deletion for postprocessing 
C6 «171 ioe 2 4 BRB ITEM ; Branch to process next item 
19C 431; 
135 ? § 3; Input or output item. Set up to call EXESPROBEx. 
19C 434 * 
50 7 O 19C¢ 435 60$ MOVL R7,RO : ni = putter pddrens 
51 b0 19F 4 § MOVL R5,R1 3 buffer length 
D i ‘ CLRL R 3 probe against previous mode 
DD OIA 438 PUSHL R 3 te 5 across call 
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; Input item. Ensure that the buffer is accessible. 


*” 900000 


BBS R2,@OUTPUT_ITEM(R11),120$ ; Branch if output item 
EXESPROBER 


JSB : Probe read access to buffer 
POPL ; Restore R 
BLBC RO,908 ; Branch if no access 


> Test for items that receive special translation. 


MOVL FERC IM TABLECATID RO ; Point to special handling table 
70$ MOVZWL (RO),R ; Pick up item code and test if ended 
BEQL  INPUT_ITEM : Branch if ended 
CMPL R6,R1 ; Correct item code? 
BNEQ 8 ; Branch if not 
JMP a2(Rr0) ; Jump to processing routine 
80$ ADDL2 #6,R0 ; Increment to next table entry 
BRB 70$ ; Loop to compare next 
3; Helper branches. 
90$: BRW ACCVIO 
100$: BRW BADPARAM 
110$: BRW INSFMEM 


: Ordinary input item. Store the item code, buffer length, and contents. 


INPUT_ITEM: 
SUBL3 


50 3f > ¢& BL R5,SP,RO ; Get lowest address that will be used 
5 96 C2 SUBL2 #4,RO0 : 
5A 0 01 CMPL RO,R10 ; Compare against that available 
) BLSSU -116$ ; Branch if space exceeded 
5E 0 00 OVL RO,SP 3; Allocate the space 
80 g 8 MOVW R6, (RO)+ ; Store item code 
$4 MOVW R5,(RO)+ ; Store item length 
60 6 5 MOVCS R5,(R7), (RO) ; Store item value 
FF70 BR ITEM ; Branch to process next item 


Output item. Ensure that the buffer, and return length if specified, are 
accessible, and store the item code, buffer length, buffer address, and return 
length address. 
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QR HHH HH HHH MMMMMMMoOoOOOOTOIVTVTVTVFVNMNMOAAAAAOAOAO 
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WOOO O00. 09 09 69 09 G9 OD9 GB SS I NSN SIDS DS DDD DD TI BS EE 


PEW OOD NAME WIN  O OD NAME WN SO OD NAME WI OS OOD NAME WIN 0 ONO Win O 


OOOO00000'EF 1 120$: JSB EXESPROBEW ; Probe write access to buffer 
5 BED POPL 3; Restore R 
CF E BLBC RO,90$ ; Branch if no access : 
B TSTL R ; Test if return Length specified 
6 BEQL 150$ ; Branch if not specified 
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4 IFNOWRT #2, (R8) 908 3; Probe write a $s h 
50 5E Q C3 § 4 § 130$: athe Ae 5B ho 3 Get lowest address ay tt oe lite 
A p ¢ 498 CMPL RO R10 : Compare against that available 
F F 4 BLssu 1168 : Branch if space exceeded 
43 7 1 9 MOVQ R7,-(SP) ; Store item potter addresses 
Ao Be BN Roa | fees fess oa 
FF4 1A BRw ITEM : Branch to process next item 
1D 4 
1D 3 3 
1D ; To here when all items have b . 
1D | ond Tiateh ahs aueaeens ve been processed. Do necessary postprocessing 
1D : 
1D 10 FINISH_MESSAGE: 
5A FC AD OD 1D 11 MOVL CTE. tBCrPD 1G ; Get file ID item, if any 
Qs 1 1 51¢ BEQL é : Branch if none 
017C 3 ; 514 BSBW POSTPROCESS_FID ; Deal with it 
6 15 ; 
0 ? 1 ; Build the message header. 
18° 
5 00000000'9F oD g 19 140$:  MOVL @*CTL$GL_PCB,R ; Get PCB addres 
§ 00000000'9F oD D 0 MOVL @#CTLSGL_PHD,R ; Get PHD address 
7E O08 AC BO 4 1 MOVW §FUNC(AP)>=(SP) : Store function code 
7E 18 AC 2D 8 3 2 MOVQ ASTADR(AP),-(SP) ; Store AST address and parameter 
re ge ORR ORE HERG, UORRGAD cg,” are Mts aga 
7 3; Store e 
FG ; Dd 0245 5 PUSH,” BHOSL _IAGCNT(R7) i Store image counter = 
; Make s t 
GE 00000000°EF 7d 094A 597 1508: mova EXESGO_SYSTINE.(SP) Store current tikes ne 
6E  QO000000'EF 01 51 8 CMPL FR see SvST INE. (SP? : Verify that value acquired was not 
af 5 3 PRPL FxESca SYSTIME+4,4(SP) ; aby Bod by a me ry AF 
3 - 3 and store again change 
E6 62 1 BNEQ 50$ : 
64 § MOVa PCBST_TERMINAL(R6),-(SP); Store terminal name 
68 PUSHL PCBSL_EOWNER(R6) ; Store extended owner process ID 
A6é 68 4 PUSHL PCBSL_STS(R6) ; Store process status 
i) $f 5 PUSHL PCBSL_EPID(R6) ; Store extended process ID 
43 8 CLRW (SP) ; Clear spare word 
; a arti SPSL Sy PRVMOD ,#PSLS$S PRvAOD’ RO RO Get i d 
° teal ° e Py e revious mode 
° 7A § MOVB - 3; Store requester's mode 
7d 40 SUBB PCBSB_PRIB(R6) .#31,-(SP); Store base priority 
3 ¢ 41 SUBL #20,SP > Allocate space for next field 
4g MOVCS #20, @#CTLST_USERNAME,(SP} ; Store username and account name 
0 C 2 4 PUSHL PCB$L_UIC(RS) : Store Ul 
44 MOVa PHDSQ_PRIVMSK(R7),-(SP) ; Store privileges 
34 i MOVZWL MSG_CODE(R11),-(SP) > Store message type. clear mailbox 
97 47 ; 
97 $8 ; Finished building the message. Push the address of the service argument 
97 49 ; list, and the ad reqs and Length of the message, and enter kernel mode to 
4 iI : complete argument List process ng and write the message. 
97 } 
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v04-000 EXESSND IBC = Send message to Tob control eet §¢:85:3% SYS.SRCISYSSNDJBC.MAR; 1 _ (8) 
SE OD 7 3 PUSH SP ; Push address of message 
7E 5D 4 cS $3 4 SUBLS at FP,=(SP) 3; Push pength of message 
6E ¢ D 5 SUBL «#8, (§P) : Deduct fixed work area 
C OD ‘3 § PUSHL ; Push service argument Lisi 
A é SCMKRNL_S B*170$, (SP) 3; Finish in kernel mode 
01 50 9 AS 8 BLBC RO,160$ : Branch if error 
4 B 5 RET ; Return 
0201 1 : 44 160$: BRW ERROR ; Helper branch 
8 62 ; 
4 és ; Kernel mode routine to finish processing. 
B 65 * 
007¢ B 96 170$: .WORD “M<R2,R3,R4,R5,R6> ; Entry mask 
ar 
B7 6 : Get parameter List address and PCB address. 
ee 
54 00000000 ' 9F DO 0287 378 MOVL @#CTLSGL_PCB,R4 3; Get PCB address 
56 8C 00 8 BF 07 MOVL (AP) +,R6 ; Get service parameter List address 
02c1 575; 
02C1 2f8 ; Clear event flag. 
$561 378 . 
53 04 A6 YA 02C1 79 MOVZBL EFN(R6),R3 ; Get event flag number 
00000000'EF 16 O2C5 580 JSB SCHSCLREF : Clear this event flag 
22 50 =«€9 8 te 38° BLBC RO,190$ ; Return on errors 
O02CcE 83 ; 
O2CcE a 3; Check and charge AST quota. 
Oot aR 
18 A6 be 8 cE 387 TSTL ASTADR(R6) ; AST routine specified? 
QOD 1 D1 8 BEQL 180$ : Branch if none 
50 2A04 BF 3C¢ D3 = 589 MOVZWL #SS$_EXASTLM,RO ; Assume AST quota exceeded status 
38 AS OBS D8 209 TSTW PCB$Q_ASTCNT(R4) ; Test for quota exceeded 
) See 0B 91 BLEQ ; Branch if exceeded 
38 AG B7 43 236 DECW PCBSW_ASTCNT(R4) ; Charge AST quota 
EO 94; 
£0 32 3; Send the message. 
o © 39 : AB 
oo. 3 98 180$: MmOva (AP) ,R3 ; R3 = size, R4 = address of message 
55 QO000000'EF 9E OE 99 MOVAB SYS$GL_JOBCTLMB,RS : R5 = mailbox UCB address 
OO0O0000'EF 16 EA $00 JSB EXESSERDMSG : Send message 
04 FO 601 190$: RET ; Return 
Fi 602 -DSABL LSB 
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"OrSep=]oBe 68389539 


: Stack work area offsets for next routine. 


FWA_DVI= 0 ; OVI 
FWA_FID= 1 ; FID 
FWA_DID= § ; DID 
FWA_FILE_SIZE= ; File size in blocks 
:; (spare longword) 

FWALFILE SPEC= 36 ; File specification 
FWALRECATTR= 92 ; Record attributes 
FWA_CHAN= $3 ; Channel assigned to device 
FWA_I0SB= 8 ; 1/0 status block 
FWA_FAB= 28 ; FAB block 
FWA_NAM= FWA_FAB + FABSC_BLN ; NAM block 
FWA_ESA= FWA_NAM + NAMS$C_BL ; Expanded string 
FWA_SIZE= FWA_LESA + NAMSC_MAXRSS ; Length of area 
FWA_DVI_DESC= 36 ; Descriptor for device name 
FWALFIB_DESC= 36 ; Descriptor for FIB 
FWA_FIB= 4h ; File information block 
FWA_LATRLIST= FWA_FIB+F IBSC_LENGTH ; Attribute List 

-ENABL_ LSB 
FILE_SPECIFICATION: ; Translate SJC$_FILE_SPECIFICATION 
; RS = buffer size 
; R6 = item code 
: 7? = buffer address r 
; R10 = pointer to lowest available stack address 


; Check that the parameter is the correct length. 


See if there is already a filespec 
Branch if so 

Ensure no longer than 255 bytes 
Branch if incorrect 


TSTL tc catenihl 
20$ 


BNEQ 
CMP R5,#255 
BGTRU 208 


: Check for sufficient space to allocate the work area, and do so. 


MOVAB = =FWA pore t eer ae ; Get lowest address that will be used 
CMPL RO,RT ; Compare against that available 

BLSSU 308 : Branch if space exceeded 

MOVL RO,SP ; Allocate the space 


: Initialize the FAB and NAM blocks. 


PUSHL R5 ; Save RS across MOVC 


SS 
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voe-000 EXESSND JBL - Send message to Yob control 5=SEP=1984 84:35:33 Leys. SRCISYSSNDJBC MAR: 1 ’ (7) 
20 AE 00B0 8F 00 6€ 99 ef 0 661 mOovCcS # (SP) ,#0,#<FABSC_BLN+NAMSC_BLN>,FWA_FAB+4(SP) ; Clear FAB/NAM 
8E 1 6 ¢ POPL R 3; Restore R5 
36 1 AS E 1 MOVAB FWA_FAB(SP),R2 : Point to FAB 
50 A 1C 664 MOVAB FABSC_BLN(R2) ,R3 : Point to NAM 
62 5003 8F 8 902 MOVW ost nese BID! <fABSC_BLN@8>> FABSB_BID(R2) ; Set FAB identifier 
4A 3 6 : MOVB RS .FAB B_FNS(R2) ; Set file name Length 
£ A 66 OVL R7, FABSL_FNA(R2) ; Set file name address 
A 63 : D 668 MOVAB (R$), FABSL NAM (RE : Set NAM block address 
63 6002 8F 8 1 08 OVW #<NAMSC BIB! <NAM$C_BLN@8>>,NAM$B_BID(R3) ; Set NAM identifier 
OA_A3 FF 8F 90 6 670 OvB #NAMSC_PAXRSS ,NAMSB_ESS(R3) ; Set ESA descriptor 
Oc AB O0CC ce 9E B 671 MOVAB F ESK(S ) NAMSL_ESA(R3) 
56.2 9A 4} 606 MOVZBL #sJt FILE {DENTIFICATION, 6 ; Set up item code 
57 14 A3 E 0 rt of? MOVAB NAMST_DVI(R3),R7 ; Point to DVI/FID/DID area 
4 675 ; 
0 of8 ; Execute a PARSE and SEARCH to get the DVI/FID/DID. 
48 678° 
034 679 SPARSE FAB=(R2) ; Parse the file name 
0c 50 «=6©—€9) «60351 o80 BL R ; Branch if error 
0394 681 SSEARCH FAB=(R2) : Search the file name 
34 50 €8 035D et BLBS RO,50$ ; Branch to handle Like FID item 
0360 68 
360 684 ; 
360 685 ; Helper branches. 
360 6 § 3 
b3e5 6 
0223 1 3 688 10$: BRW ERROR 
FDA1 1 036 689 20$: BRW BADPARAM 
FDA3 1 0366 690 30$: BRW INSFMEM 
0369 691 
0369 036 
0369 693 FILE_IDENTIFICATION: ; Translate SJC$_FILE_IDENTIFICATION 
0369 694 
Bae8 695 ; 
69 696; RS = buffer size 
0369 697; R6 = item code 
0369 $38 3 R? = buffer address 
0 4 +44 5 R10 = pointer to lowest available stack address 
0 69 701 ; Check that the parameter is the correct length. If it is not the expected 
69 7 § ; 28 bytes, and the previous mode is at least executive, assume that we have 
24 ? 3; been passed the entire expanded item and send it on as is. 
69 os : 
FC AD D5 69 «7 $ TSTL FILE_ID(FP) ; See if there is already a filespec 
F512 | ee BNEQ ; Branch if so 
oe) a: of 708 CMPW R5 #28 ; Ensure parameter is 28 bytes 
oF 13 709 BEQL 40$ ; Branch if correct 
0 oc es 710 MOVPSL RO ; Get Pst 
50 50 02 16 «EF 0375 (711 EXTZV  #PSLSV_PRVMOD,#PSLS$S_PRVMOD,RO,RO ; Get previous mode 
1 50 01 O37A ole CMPL RO, #PSCSC_EXEC ; Previous mode exec or kernel? 
1A 7 - 2 BGTRU ; Branch if not 
FE54 3] 7F 714 BRwW INPUT {yen ; Branch to store item as is 
OF 67 1 ¢ 715 408: CMPB (R7) , #15 :; Ensure device no more than 15 bytes 
dC 1A ; at BGTRU ; Branch if incorrect 
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50 FESS 
SA 30 
b2 
SE 0 
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oe, | 
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2C AA 0040 8F 00 6E 00 


QO AA 
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53 0144 CA 
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04 AO 01 AA 
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9 A 
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PNCON NK THO > rom 


SOOOGGOGOOOOCOCOOCOOCOOOOOOSODOOCOCOCOOOCOCOOCOOCOOCoCOoO 
W.AAN'AI AAAI AAA 


MMMM OOIOOOOOOO 


SANSA NS SINNNNNNNNNNAIN 


PP REE EEE EWN nonononononononond 
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50$: 


POSTPROCESS_FID: 
moves 


= SEND MESSAGE TO JOB CONTROLLER 
EXESSNDJBC - Send message to 


MOVAB  =FWA $1ZE(SP) ,RO : 
CMPL 4 RT 3 
BLSSU § : 
MOVL RO,SP 3 


: Move the DVI/FID/DID to the work area. 


MOVC3 #28,(R7),FWA_DVI(SP) 
MOVL  SP,FILE_{[D(FP) 
MOVZWL R6,=(SPY 

BRW ITEM 


The file specification, if any, must be 
have been digested. Inputs: 


ERs snevou ECSERSIBRE 06:34:48 


18 ; Check for sufficient space to allocate the work area, and do so. 


AX/VMS Macro V04-00 
SYS.SRCISYSSNDJBC.MAR; 1 


Get lowest address that will be used 
Compare against that available 
Branch if space exceeded 

Allocate the space 


Move the parameter to the work area 
Save location of file ID buffer 

Store item code, leave space for size 
Remainder of processing comes Later 


post-processed after all items 


Get a pointer to the DVI descriptor, and where the channel will be stored, 


: R10 = address of file ID item 
> and initialize the descriptor. 


(RO) ; 
Pe r 


Assign a channel to the device. 


SASSIGN_S - 
DEVNAM=(RO), - 
CHAN=(R3) 

BLBC RO,10$ 


: Build 
MOVAB FWA_ATRLIST(R10) ,RO F 
MOVAB FWA-FIB DESC (R195 .R1 : 
MOVAB FWA_IOSB(R10),R : 
MOVAB FWAFIB(R10) ,R4 ; 
MOVL FWA_FID(R10) ,FIBSW_FID(R4 
MOVW  FWATFID+4(R10),F 1BSW F1Ds 
BBC #DECETE_FLAG, FLAGS (FP) ,55 


aatasgiane oy A ; Initialize FIB 


ear unused Longword 


: Point to DVI descriptor 
; Point to channel 


Store device name Length 


; Store device name address 


Assign a channel 
Device name 
Output channel number 
Branch if not assigned 


the FIB, the FIB descriptor, and the ACP attributes List. 


Point to attribute List 
Point to FIB descriptor 
Point to I0SB 
Point to FIB 


hgh Or® file ID 
; Branch if not deleting file 
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vOL-000 EXESSND IGE Send message to Fob control ets 7 §¢:85:33 Leys SRCISYSSNDJBC MAR: 1 s 3) Tab 
AAG 16AA D EF 75 MOVL FWA_DID(R10) ,FIBSW_DID(R4) ; Also store directory ID 
EAS AAA 8B F4 8 MOVW FWA D1De4 (R10) , F1BSW_DIDe4 (Ry) 
14 AG 0800 BF OA F9 7 BISW #F IBSM_FINDFID,FIBSW_NMCTL( 
AG : ee FF ore BISL #F IBSM_ALT_REQ “agre STATUS(R4) ; Alternate access required 
C AG 2 oe r ; ay MOVL #ARMSM_DELETE,F 1B L_ALT_ACCESS(84) ; Check for delete access 
61 00000040 8F 0 0407 5 1 55$: MOVL #F IBSC_LENGTH, (R1) ; Initialize FIB descriptor 
04 Al 64 E rk § MOVAB (R4) ,4TR1) 3 
60 900496 0 8F 0 041 784 #<ATRSS_RECATTR+<ATRSC_RECATTR@16>>, (RO) 
04 A 0124 CA f 4) 785 MOVAB FWA_RECATTR(R10),4(RO) 
08 Ad ogredt 0 8F 41F 7 § MOVL #<256+<ATRSC FALE SP56816>>.8¢R0) 
OC A 4 AA E 427 7 MOVAB’ FWA FILE_SPEC(R ¥,12¢R0) 
10 AO D4 042C £8 CLRL 16(RO) 
O45 $90 
" : 73 ; Access the file to get necessary information. 
sor 60798 * 
O42F 794 $Q10W_S - ; Issue Q10 to obtain file attributes 
O42F 795 EFN=EFN(AP), = ; User's event flag 
042F £8 CHAN=(R3), «= ; Channel number 
O42F 79 FUNC=#10$_ACCESS, - ; Read attributes function code 
O42F 798 10SB=(R2), ; 1/0 status block 
O42F 799 Pi=(R1), = ; Address of FIB descriptor 
042F B00 P5=RO ; Address of attribute List 
50 DD 044D 01 PUSHL RO ; Save $Q10W status 
O44F if SDASSGN_S - ; Deassign the channel 
50 8ED0 ret) 4 POPL page : Bs ret a 
; Restore status from access 
48 50 5? 045C 05 BLBC RO,70$ : Branch if $Q10W failed 
50 0148 CA C 45F aoe MOVZWL FWA_IOSB(R10),RO ; Pick up status from I0SB 
40 50 E9 0464 0 BLBC RO,70$ ; Branch if operation failed 
o2ey 809 
bee) 19 3; Compute the file size from the record attributes. 
467 812° 
1C AA O12C CA 10) 9C reed 18 ROTL #16, - ; Move EFBLK to file size area and 
46E 814 FWALRECATIRSEATSL EFBLK(R10), = 
46E 15 FWA_FILE_SIZE(R10) ; convert to unswapped 
09 «613 $$ 16 BEQL :; Branch if EFBLK is zero 
0130 CA’ B65 4 17 TSTW FWA_RECATTR+FATSW_FFBYTE(R10) ; Test first free byte 
03 is 474 18 BNEQ :; Branch if nonzero 
1C AA OD #76 4 DECL FWA_FILE_SIZE(R10) 3; Adjust EFBLK 
47 1; 
138 § 3 Slide the real data up adjacent to the previous item on the stack, and 
rf 4 ? 3; finish it by adding the length and item code. 
47 & 
57 24 AA 3C rhe § 60$: MOVZ7WL FWA BILE .SPECCRIO) RF 3; Get file specification length 
OOFE 8F 57 1 0470 CMPW R7 #254 3; Check apetnst maximum supported length 
5 *B 4 f 3 BLEQU ; Branch if in range 
57 ore , 2s 4 MOVZWL #254,R7 ; Shorten to maximum 
$ C 489 0 65$: ADDL #FWA Fite SPEC+2,R7 ; Add fixed portion 
FE AA 8 48C 1 MOVW R7,-2(R10F ; Store length in message 


ssa 


58 000001C¢B F 


e 


6E48 


= SEND MES 
EXESSNDJBC - 


: 


198 
4 


SAGE 

Se 
§ 
ra 
? 

4A 

a 

4 

7 84 

4 

4 

44 

45 


me R7 tO.RY SIZE,R8 


SUB S 
MOVES ie (SP), (SP)CR8J 
ADDL RB, SP 


Helper branches. 


70$: 


BRW ERROR 
-DSABL LSB 


ng Joe conrrauyer © | conret =§ e- 13k 88: 33 3 Heys orcas 


; Compute bia 


RCISY 
s 


v04-00 
SSND JBC .MAR; 1 
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s Compute 9) size ¢ of area above filespec 


; Squish on unused poece 


; Delete unus 


; Done with f 


fe 


stack 
spec 


) 
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EXESSNDJBC = Send message to job control 5- 


Mm it 
) i ; Stack work area offsets for next routine. 
GAA sf 
00000 4AA § LWA_BUF FER= ; Logical name buffer 
00001 4AA LWA_LOGNAM= 56 ; Logical name descriptor 
: 1 4AA 4 LWA_LITMLST= $3 ; STRNLNM item List 
124 OQ4AA 5 LWA_RSLLEN= 2 ; Translation Length buffer 
0000128 Q4AA 2$ LWA_ATTRBUF = 96 ; Translation attributes buffer 
0000012C re ; LWA_SIZE= 00 ; Work area length 
4AA § -ENABL LSB 
FCSA 3] GAA r$ 198: BRW BADPARAM 
FCSC 1 ry o 20$: BRW INSFMEM 
48 $8 TRANSLATE_OBJECT: ; Translate object names 
ae 
480 06 : RS = buffer size 
480 67; R6 = item code 
4B 68 ; R7? = buffer address 
bee0 $3 ; R10 = pointer to lowest available stack address 
4B0 71 : Check that the parameter is the correct hength and that there is sufficient 
048 i ; space to allocate the work area (then do so). 
bcBo Bea 
OOFF 8F 55 B11 048 75 CMPW R5,#255 ; Ensure no more than 255 bytes 
F3 =A BeBe 6 BGTRU 108 ; Branch if incorrect 
53 FED4 gf 9E 0487 78 MOVAB = SIZE(SP) ,R3 ; Get lowest address that will be used 
5A 5 D1 Rope 79 CMPL R3,RT0 ; Compare against that available 
Ef 1F O4BF 80 BLSSU 208 ; Branch if space exceeded 
5E DO rt} Be MOVL R3,SP ; Allocate the space 
4C4 83 ; 
4C4 rf: ; Prepare to perform the iterative translations by inj vtol izing the Logical name 
rth é ; descriptor and the item List utilized by the recursive $STRNLNMs. 
4C4 . 
55 DD 04C4 : PUSH R5 ; Save the input string length 
63 67 55 28 04C6 MOVC R5,(R7),(R3) ; Move input spring into scratch buffer 
rH a * 4CA ay POPL R5 ; Restore the snpu string Length 
57 ae rt} 4 MOVL SP,R7 ; Restore scratch buffer address 
51 0104 C7 9E 409 38 VA LWA_LOGNAM+4(R7) ,R1 ; Addr of area requiring initialization 
81 67 9 rt Be MOVAB (R7J,(R1)+ ; Init log name descriptor buffer addr 
81 OOO200FF 8F 00 app 38 MOVL #<LNMS STRING @ 16+- ; Init string item List item type 
4DF 9 255). )+ ; and string buffer length 
1 67 Q9E O4DF 38 MOVAB (R7),(R1)+ ; Init string item buffer address 
81 Blu o? 43 nt 9 MOVAB LWA RSLLEN(R7) (R1)+ : Init eters item return buffer address 
81 00030004 BF OD 4E ? VL #<LAM$_ ATTRIBUTES @ 164+-: Init attributes item List item type 
4EE 4>, (R1T+ ; and attributes buffer length 
81 0128 C7 E ri} 2 § MOVAB LWA_ATTRBUF(R7),(R1)+ : Init attributes item buffer address 
61 C O4F LRQ (RIT ; Init attributes item return buffer 
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; address and end of item List marker 
; Initialize loop counter 
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Loop to iterate over translations. 


R5 = Current input string length 

Rg = Item sete 

R? = Current input string address, and 
Address of work area 


The iterations successfully terminate when: 

1. The maximum translation recursion depth is exceeded. 
- The current translation succeeds but the translation is marked terminal. 
- The current translation fails with an error of SS$_NOLOGNAM. 

The iterations unsuccessfully terminate when: 

1. The current translation fails with some error other than SS$_NOLOGNAM. 


2. The current translation exceeds but the equivalence string iS either of 
null length or does not exist. 


0$: MOVL R5,LWA_LOGNAM(R7) ; Store name Length in descriptor 
STRNLNM_S ; Attempt to translate the name 
ATTR = TRNLNM_ATTR,- 3; Case-insensitive translation 
ITMLST = LWA_ITALST(R7),- ; Address of item List 
LOGNAM = LWA_LOGNAM(R7),- ; Address of name descriptor 
TABNAM = TRNCNM_TABLE ; Addr LNMSFILE_DEV descriptor 
BLBC RO,45$ : Done if translation fails 
MOVZWL LWA_RSLLEN(R7) ,R5 ; Retrieve length of equivalence string 
BEQL 40$ ; Go return error if len is 0 


t s 
3; (null or non-existant Trenetet tend 


BBS #LNMS$V_TERMINAL,- 3; Is the translation marked terminal? 
LWA_ATTRBUF (R7) ,50$ ; terminate iterative translations if so 
soseTe G4, 308 : Continue if more translations possible 


; Else, done if xlation count exhausted 


Return an error for null length or 
non-existant translation 


If the translation failed for a reason 
other than the logical name did not 
exist then go return the error 


#SS$_NOLOGNAM 
OR 


BNEQ ERR 


R4 = Current translation count 
| 
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SYSSNDJBC = SEND MESSAGE TO JOB CONTROLLER 16-SEP-1984 02:34: AX/VMS Macro v04-00 Page SYS 
v04-000 EXESSND IB - Send message to ob control ase Pi 86:35:33 SYS.SRCISYSSNDJBC.MAR; 1 . (H) v04 
; : ; Recursive translations have completed. Format the final translation by 
9 59 ; removing tg tabs, null characters, and a trailing colon if there is one, 
5 2 44 ; and upcasing the name using the DEC multi-national character upcasing table. 
4 $84 3 R1 = Current character 
+ 3 R2 = Current character index 
539 64; RS = Cursor to output buffer 
539-965; R5 = Length of input string 
4 $67 3 R? = Address of input string 
9 oO 
2g 9 cf 539 569 50$: MNEGL ay Re 3; Initialize the Lop index 
5 . § 53c 36-970 MOV R7,R : Initialize output buffer cursor 
18 «#11 a7 44 BRB 70$ ; Branch to enter the loop 
51 ak | 9A 0541 398 60$: MOVZBL (R7)CR2],R1 ; Pick up the current character 
1 13 0545 974 BEQL 70$ 3; Remove it if it is nul 
20 51 91 0547 975 CMPB R1,@*A" ° 3; Is the current character a blank? 
0 13 054A 976 BEaL «= 708 : Remove it if it is 
09 51 91 54C 97 CMPB R1,#*°0011 3; Is the current character a tab? 
08 13 O54F 44 BEQL 3; Remove it if it is 
83  00000000'GF41 90 bee9 44 MOVB | yale telah 3 Rove upcased character into output 
; buffer 
E452 55 F2 Been +2 70$: AOBLSS R5,R2,60$ 3; Continue loop until done 
57 53 57 & 038 388 SUBL3 R7,R3,R7 ; Computes name's compressed length 
C 1 561 984 BEQL ; Return an error if its zero 
3A COFFE A 91 9203 985 CMPB -1(R3) ,#*A':' ; Is there a trailing colon? 
04 1 828 986 BNEQ 80$ ; Branch if there isn't 
57 OD 569 987 DECL R7 ; Otherwise remove it 
=. a 0360 o85 BEQL 40$ ; Return an error if name Length is 0 
56D 990; 
056D 991 ; Slide the name up the stack so that it is adjacent to the previous item on 
056D 992 ; the stack. Then complete the formation of the item by adding the name Length 
beep 993 ; and item code. 
Be 
58 0000012C 8F 57 S O3¢p 996 80S: SUBL R7,#LWA_SIZE ne ; Compute bias 
6648 6€ 57 8 5 99 MOVC3 = R7. (SP) 7 (SP) CRB) : Slide item up 
, mh Bee. S7A = 99 ADDL R8,SP 3; Delete unused stack 
7E 27 B8 2? 99 MOV R7,-(SP) : Store item length 
7E 6 4 1000 MOVW R6,-(SP) 3; Store item code 
FBDC 1 05 1001 BRW ITEM ; Return to item List processing 
586 1002 -DSABL LSB 


Li aes 
© ta ax TO JOB CONTROLLER “ or 1380 06:35:38 AX/VMS Macro V04-00 Page fd SYS 


ME E SE 
x J end message to job contro - YS. Y JBC.MAR; 
a BC = Send b l SE SYS.SRCJSYSSNDJBC.MAR; 1 ) v04 
1998 
1 § ; Synchronous error return path. Store status in the IOSB, set the event fiag, 
} é ; and declare the AST, if specified. 
1 o 
50 oD 1 9 ERROR: PUSHL RO ; Save c etion status 
woeneay & 6C «OFA 101 CALLG (AP) ,G*SYSSSETEF ; Set specified event flag 
1 14 aC 06 3 ia 1 MOVL i SBCAP) ,R1 : Get address of 10SB 
0 1 : 101 BEQL $ ; Branch if none 
595 1014 IFNOWRT #8,(R1),108 ; Branch if no write access 
61 6€ OD 298 1015 MOVL (SP), (RI) : Store completion status 
51 18 At D 96 1 1 10$ MOVL ASTADR (AP) .R1 ; Get address of AST routine 
1 1 SA2 101 EQL 20$ ; Branch if none 
50 oc SA4 1 13 MOVPSL RO ; Get f 
50 50 02 16 EF 05a6 101 XTZV__ #PSLSV_PRVMOD ,#PSLS$S_PRVMOD,RO.RO ; Get previous mode 
| 1020 SDOCLAST_S (R1),ASTPRM(AP) ,RO ; Declare completion AST 
50 8EDO 0589 1021 208: OPL RO 3; Restore completion status 
04 O058C 1022 RET ; Return with error status 


: | 


412 
= SEND MESSAGE TO JOB CONTROLLER 16-SEP-1984 02:34:54 VAX/VMS Macro v04-00 P 3 SYS 
EXESUBCREP - Store response from job con 5-SEP-1984 §¢:35:35 SYS.SRCJSYSSNDJBC.MAR; 1 age 16) vO4 
380 } : -SBTTL EXESJBCRSP = Store response from job controller 
BD 1087 
3 ! 8 > EXESUBCRSP = STORE RESPONSE FROM JOB CONTROLLER 
380 p ; FUNCTIONAL DESCRIPTION: 
58D 1 § : This routine is called as a special kernel AST routine to retyrn status 
58D 1 : from the send to job controller system service to pe ve requesting 
5BD 1034 ; proces - It ensures that the same image is execut ng.an then Sets the 
43 1035 ; : ecified e ougnt flag, stores a status value in the 1088 if neci cified, 
BD 1 § 3 ores data any output buffer items that were in the original 
5BD 1 3 reauest. and declares the completion AST if specified. If Roreertete. 
4 ! 3 : the ACB is deallocated. 
58D 1040 ; INPUTS: 
5BD 1041; RO-R3 = scratch 
58D 1 tg 3 RG = PCB address 
3208 : rf $ RS = ACB address 
58D 1045 ; OUTPUTS: 
58D 1 m4 3 See above. 
a 18 
058D 1949 EXESJBCRSP: : ; Response from job controller 
at 
5BD 1 28 : Compare the image count when the request was queued with the current image 
OSD ! 27 ; count. If different, a new image is running - do not store anything. 
58D 1055 ° 
53 go009eoe ‘OF dO 58D 1 2$ MOVL @*CTLS$GL_PHD a Get PHD address 
1C AS ot * | D1 5¢c4 105 CMPL PHDSL_ IMGCNT(R ),ACB_L_ AGENT (RS) See La _ mae count correct 
03 13 O5CA 1058 BEQL 108 3 Branch (? serve 
0085 3831 ace 1923 BRwW 70$ 3; Join code to po Se ACB 
SCF 1061 ; 
SCF 1 $¢ 3; Loop over the return item = oa storing information in the user's 
se ! 2 3; output buffers. During this loo 
atf 1065 : RS = user buffer address 
SCF 1 96 3 R6 = pointer to item descriptors in ACB 
ocr 1 ° : R? = user buffer size 
oc 3 3 R8 = actual data siee 
SCF 1 ° : RO = requester's aeeees mode 
SCF 1 9 3 R10 = item count 
af Ope | 
2c AS if —e | % tg 10$: TSTW 468. W_ITEMCOUNT (RS) : Any items to return? 
52 2b¢ 1074 BEQL ranch if none 
O7FO BF BB 5p4 1075 PUSHR  #*M<R4,R5, RG, a. 7.RB, RY, ribo: Save registers 
6 26 A5 9E 0508 1 id: MOVAB ACB B_ITEM ; Point to items 
9 Ad A 05DC 107 MOVZBL tt i RMODIR 8s 86 ; Get requester’ s mode 
A 2CA C 0560 1 28 MOVZWL wilt TEMCOUNT(RS),R10 ; Get item coun 
57 86 C E4 1079 208 MOVZWL a 4 ; Get user an size 
58 6 C OS5E7 1080 MOVZWL )+,R8 3; Get actual size 
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51 60 A4 
AS 

53 34 A 
00000000' EF 
5124 AS 
08 

61 28 A5 
10 AS 

5 
00000000 EF 
03 0B AS_ 06 
00000000 EF 
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N 12 
SAGE TO JOB CONTROLLER 16-SEP-1984 02:34: AX/VMS Macro v04-00 Pa 4 
- Store response from job con mie 96:35:33 YOYS SRCISYSSNDIBC MAR: 1 - (ie 
1 MOVL (R6)+,R5 ; Get data buffer address 
§ MOVL BBR ; RO = buffer pedress 
MOVL R7,R ; RI = buffer length 
4 MOVL 9,R ; RS = requester's mode 
5 JSB EXE SPROBEW : Probe tor write access 
§ BLBC g. 0$ : Branch if inaccessible 
MOVCS R8,4(R6),#0,R7,(R5) 3; Move data to user buffer 
8 OVL (R6)+,R5 : Get return Length address 
EQL 40$ :; Branch if none 
IFNOWRT #2,(R5),90$,R9 : prove for write access 
g MPL R8,R7 ; Minimize user and actual Length 
36 BGEQU 306 : Branch if actual length Larger 
9 OVL R8,R7 : Get actual length as minimum 
94 70s: MOVW R7,(R5) ; Return buffer length 
95 40S: ADDL2 R8 ng ; Advance over data 
3% SOBGTR R10,208 j Loop for all items 
i OPR #*M<R4,R5,R6,R7,R8,R9,R10> ; Restore registers 
99 ; 
89 ; Output buffers stored. Set the specified event flag, return status to the 
1 ; 10SB, and declare the completion AST if specified. if no AST specified, 
$f : deallocate the ACB. 
4 oO 
5 50$: MOVL PCBSL_PID(R4) ,R1 R1 = PID 
Bg RL R R2 = null priority increment 
MOVZBL ACB_L_EFN(RS),R3 R3 = event flag number 
B SCHSPOSTEF 


: Set specified event flag 
MOVL ACB_L_IOSB(R5S) ,R1 ; Get I0SB address 
QL : Branch if none 
IFNOWRT #4,(R1),60$,ACB$B_RMOD(R5) ; Probe for write access 
L ACB_L_STATUS(RS),(R1)  ; Return status 
ACBSL_AST(RS) ; Completion AST specified? 
70$ ; Branch if no to deallocate ACB 
; R2 = null rlority increment 
; Queue completion AS 


o 
o 
cad 
+23~—-@W zc zo 
NO *"MOwOr- 
a 
- 


R2 
JMP SCHSQAST T and return 


; Processing finished. Return AST quota if charged, and deallocate the ACB. 


> (No byte count quota is charged for this ACB because it is allocated by the 

; job controller.) 

70$: BBC #ACBSV_QUOTA,ACBSB_RMOD(R5),80$ ; Branch if no AST quota charged 
INCW PCB$W_ASTCNT(R4) ; Return AST quota 

80$: MOVL 8 ; RO = ACB address 
JMP E XE SDEANONPAGED ; Deallocate ACB and return 

: Nenery is inaccessible. Attempt to return an access violation status to 

3; the I0SB. 

90$ 


POPR #*M<R4,RS,R6O,R7,RB,RI,RIO>_ ; Restore registers 
MOVL #sss_accvio,AcB__§ 
i. 


TATUS(RSS ; Force status to ACCVJ0 
; Go to return EFN and I0SB8 
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ACB_L_STATUS 
ACB-U-TTERCOUNT 


ACCU 
ACM$Q_SYSTIME 
ARMSM "DELETE 
ASTA aon 


ASTPR 

ATRSCe FILE SPEC 
ATRSC_RECATIR 
CADPARAR 


TEM 
PTLSKL STACKLIM 
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CTL$T_OSERNAME 
DELETE_FLAG 
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FILE SPECIFICATION 
FINISH_MESSAGE 
FIXED_AREA 
FLAGS 
FUNC 
FWA_ATRLIST 
FWA” CHAN 
FWA-DID 
FWA-DVI 
FWA-DVI_DESC 
FWA-ESA 
FWA-FAB 
FWA-FIB 
FWA-FIB_DESC 
FWA-FID 
FWA-FILE_SIZE 
FWA-FILE-SPEC 
FWA-10SB 
FWA_NAM 
FWA-RECATTR 
FWA-SIZE 
GETOUI_BOOL_ITEM 
GETQUI-DATA 
GETQUI-OUTPUT_ITEM 
GETQUI~SPECIAC_TABLE 
INPUT ITEM 
INSFMEM 
10$_ACCESS 
10S6 
ITEM 
ITM 
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LNMSC -MAXDEPTH 


OUTPL 
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Quis$_ RESERV ED 
$- =RESERVED pM 6 

$-SEARCH_NAME 

LREF 
SCHSPOSTEF 
SCHSQAST 
SJCS_ CHARACTERISTIC _NAME 
SJC$_DELETE FIL 
SJC$ =DESTINATION UEUE 
SJCS_FILE_I DENTIFICATION 
-FILE “SPECIFICATION 
“FORM NAME 
“GENERIC_TARGET 
“LOG_ QUEDE 
Oe 
“RESERVED_FUNC_2 
~RESERVED_OUTPOT_2 
BOOL_ITEM 


ND 
SNDJBC_OUTPUT_ITEM 
$397 poreCiAC TABLE 


SYSS$Q10W 
SYSSSEARCH 
SYSSSETEF 


SYSSTRNLNM 
TRANSLATE_OBJECT 
TRNLNM_ATTR 
TRNLNM~ TABLE 
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:37 (CSYS.SRCISY 


! ; Psect synopsis ! 


soem aae wma eecoen + 


PSECT name Allocation PSECT No. Attributes 

. ‘ 4 444 ( 0.) 00 ¢ O.) NOPIC USR CON ABS ~ LCL NOSHR NOEXE 
SABSS OOOO02ZE $9°? 1¢( 1.) NOPIC USR CON ABS LCL NOSHR- EXE 
YSEXEPAGED OOOOO66F ( 1647.) 02 ¢ 2.) NOPIC USR CON REL LCL NOSHR- EXE 


Peewee ecooseccccecccccce$ 


Phase Page faults CPU Time Elapsed Time 


Initialization oie Bee Ee 00:00:00.26 
Salaeon, 2 SHEN es $8858) $6 
Symbol table sort val 00:00:05. 96 00:00:06-13 
Symbol table output 20 00:00:00: 18 00:00:00.20 
Psect synopsis output Bp BR! 0.0 00:00:00.03 
Cross-reference output Bob 88°55 es Be Bt 
Assembler run totals 93 00:00:33.22 0:00:38.29 


The working set Limit was 1800 pages. 

155859 bytes (266 pages) of virtusl memory were used to buffer the intermediate code. 

There were 140 pages of symbol table space or eceeae to hold 2520 non-local and 48 local symbols. 
1137 source Lines were read in Pass 1, produci ng,! object records in Pass 2. 

40 pages of virtual memory were used to define 38 macros. 


ee 


Macro Library name Macros defined 


“$255$DUA28: have -OBJJLIB.MLB;1 7 
“$255$DUA28: SYSLIBISTARLET. MLB; 2 ¢8 
TOTALS (all Libraries) 5 


2706 GETS were required to define 35 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=L1S$:SYSSNDJBC/OBJ=OBJ$:SYSSNDJBC MSRC$:SYSSNDJBC/UPDATE=(ENH$: SYSSNDJBC) +EXECMLS$/LIB 
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